home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_09 / rendermods / RendMods < prev   
Encoding:
Text File  |  1989-05-01  |  1.2 KB  |  18 lines
  1. 60 DIM loadadd &F100, sb1% 32*1023:org=loadadd+&A100
  2. 2550 XRES=640:YRES=256:SC%=100:DES=1000:IND=1.5:SKYCOL=13:SKYDEP=600:AVE=1:SHAD=1:SHGR=0
  3. 2950 IF YRES=256 AND SCRADD%<=&1FB0000 YRES=512:PROCbox(17,16,14,2,"HIGH*RESOLUTION",14,0):ENDPROC
  4. 2960 YRES=256:PROCbox(17,16,14,2,"LOW*RESOLUTION",14,0):ENDPROC
  5. 3981 IF RES=320 THEN XRES=640:YRES=256
  6. 13590 vars!xlim=XL:vars!ylim=YL:vars!reso=XRES
  7. 14010 A$=LEFT$(name$,8):A$=A$+STR$FILFR%:IF YRES=256 ENS%=&28000 ELSE ENS%=&50000
  8. 14090 XL=XRES/SIZE%:YL=YRES/SIZE%:PROCcoeffin
  9. 14110 IF YRES=256 MODE 15 ELSE MODE 21
  10. 14190 IF YRES=256 MODE 15 ELSE MODE 21
  11. 14280 XL=XRES/SIZE%:YL=YRES/SIZE%:PROCcoeffin:SCROFF%=1:PROCisflooron
  12. 14290 IF YRES=256 MODE 15 ELSE MODE 21
  13. 15150 IF YRES=256 PROCbox(17,16,14,2,"LOW*RESOLUTION",14,1)ELSE PROCbox(17,16,14,2,"HIGH*RESOLUTION",14,1)
  14. 14210IF YRES=256 OSCLI "Compress "+A$ ELSE OSCLI "SCREENSAVE "+A$
  15. 14220IF YRES=256 OSCLI "SETTYPE "+A$+" "+STR$~Pictype%
  16. 11320GCOL63 TINT 255:VDU5:IF YRES=256 PRINTTAB(0,31);"Click Mouse" ELSE PRINTTAB(0,62);"Click Mouse"
  17. 14380 GCOL63 TINT 255:IF YRES=256 PRINTTAB(0,31);"Time taken ";:PROCtime(TI):GCOL 25:PRINT;"   Click mouse" ELSE PRINTTAB(0,62);"Time taken ";:PROCtime(TI):GCOL 25:PRINT;"   Click mouse"
  18.